home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / datatypes / xpkdt / install xpkdt < prev    next >
Text File  |  1996-04-07  |  2KB  |  91 lines
  1. ; Installer script for XPKDT
  2. ; $VER: Install XPKDT 39.1 (21.11.95)
  3.  
  4. (complete 0)
  5.  
  6. (set @l-dest "LIBS:DataTypes/")
  7. (set @permanent-dest "DEVS:DataTypes/")
  8. (set @default-dest "SYS:Storage/DataTypes/")
  9.  
  10. (set #dt "Libs/DataTypes/xpk.datatype")
  11. (set #recog "Devs/DataTypes/")
  12.  
  13. ; ***************************************************************************
  14. ; English strings
  15.  
  16. (set #bad-kick
  17.     (cat "You must have AmigaDOS 3.0 or higher to use XPKDT!"))
  18.  
  19. (set #welcome
  20.     (cat "\nXPKDT installation\n\n\n"
  21.        "This script installs XPKDT 1.0ß\n"
  22.        "on your Amiga.\n\n\n\n"
  23.        "XPKDT is\n"
  24.        "Copyright © 1995 Michal Letowski\n"
  25.        "All rights reserved.\n\n"))
  26.  
  27. (set #where-driver
  28.     (cat "Should XPKDT be installed permanently?"))
  29.  
  30. (set #where-help
  31.     (cat "\nDataTypes can be installed as Permanently Enabled"
  32.          " or Manually Selectable.\n"
  33.        "Pemanently Enabled means that the DataType is always"
  34.        " ready for use.\n"
  35.        "Manually Selectable means that the datatype has to be"
  36.        " activated before it can be used.\n"))
  37.  
  38. ; ***************************************************************************
  39. ; Install XPKDT
  40.  
  41. ; Check AmigaDOS version
  42. (set #version (/ (getversion) 65536))
  43. (if (< #version 39)
  44.     (
  45.         (abort #bad-kick)
  46.     )
  47. )
  48.  
  49. (message #welcome)
  50.  
  51. (welcome)
  52. (set old_level @user-level)
  53.  
  54. (user 2)
  55. (set #perm
  56.     (askbool
  57.         (prompt #where-driver)
  58.         (help #where-help)
  59.         (default 0))
  60. )
  61. (if #perm
  62.     (set @recog-dest @permanent-dest)
  63.     (set @recog-dest @default-dest)
  64. )
  65.  
  66. ; Do copy
  67. (user old_level)
  68.  
  69. ; Copy library
  70. (copylib
  71.     (source #dt)
  72.     (dest @l-dest)
  73. )
  74. (complete 40)
  75.  
  76. ; Copy recog
  77. (copyfiles
  78.     (source #recog)
  79.     (dest @recog-dest)
  80.     (all)
  81. )
  82. (complete 80)
  83.  
  84. ; Activate descriptors if Permanently enabled
  85. (if #perm
  86.     (run "AddDataTypes REFRESH")
  87. )
  88.  
  89. (set @default-dest "")
  90. (exit)
  91.